home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
others
/
amimacro.zip
/
CNGDOCFT.SMM
< prev
next >
Wrap
INI File
|
1992-07-20
|
13KB
|
877 lines
[ver]
4
[sty]
~macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
CITIZEN Dot Matrix
[lang]
1
[desc]
Change Fonts in Current Document Using FontFaceChange
711695500
6
695804302
346
4
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[l1]
0
[pg]
4
60 0 19 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
120 0 31 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
180 0 57 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
186 0 10 1025 80 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
@Function@<:#216,10800><:Zcngdocft>FUNCTION cngdocft()<:Z~cngdocft>
<:#216,10800>Darkmode(1)
<:#216,10800>Hourglass(1)
<:#216,10800>onerror endit
<:#216,10800>oncancel endit
dim bfont(100)
<:#216,10800>dim style(25)
<:#216,10800>s=1
<:#216,10800>b=84
<:#216,10800>bfont(1)="Arial MT"
<:#216,10800>bfont(2)="AvantGarde"
<:#216,10800>bfont(3)="Bookman"
<:#216,10800>bfont(4)="BrushScript"
<:#216,10800>bfont(5)="CaslonOpenFace"
<:#216,10800>bfont(6)="Courier"
<:#216,10800>bfont(7)="DomCasual"
<:#216,10800>bfont(8)="Frank Goth Cd"
<:#216,10800>bfont(9)="Helvetica"
<:#216,10800>bfont(10)="Helvetica-Narrow"
<:#216,10800>bfont(11)="LetterGothic"
<:#216,10800>bfont(12)="NewCenturySchlbk"
<:#216,10800>bfont(13)="Palatino"
<:#216,10800>bfont(14)="Perpetua"
<:#216,10800>bfont(15)="Shelly Allegro Script"
<:#216,10800>bfont(16)="Symbol"
<:#216,10800>bfont(17)="Times"
<:#216,10800>bfont(18)="TimesNewRomanPS"
<:#216,10800>bfont(19)="Wingdings"
<:#216,10800>bfont(20)="Algiers"
<:#216,10800>bfont(21)="Arabia"
<:#216,10800>bfont(22)="Avalon"
<:#216,10800>bfont(23)="Bahamas"
<:#216,10800>bfont(24)="BahamasHeavy"
<:#216,10800>bfont(25)="BahamasLight"
<:#216,10800>bfont(26)="BallroomTango"
<:#216,10800>bfont(27)="BravoEngraved"
<:#216,10800>bfont(28)="Brochure"
<:#216,10800>bfont(29)="Brooklyn"
<:#216,10800>bfont(30)="Busker"
<:#216,10800>bfont(31)="Campaign"
<:#216,10800>bfont(32)="Casablanca"
<:#216,10800>bfont(33)="CasablancaAntique"
<:#216,10800>bfont(34)="CommonBullets"
<:#216,10800>bfont(35)="Cottage"
<:#216,10800>bfont(36)="Crescent"
<:#216,10800>bfont(37)="Dauphin"
<:#216,10800>bfont(38)="DawnCastle"
<:#216,10800>bfont(39)="Dixieland"
<:#216,10800>bfont(40)="Euromode"
<:#216,10800>bfont(41)="Expo"
<:#216,10800>bfont(42)="Frankenstein"
<:#216,10800>bfont(43)="Freeport"
<:#216,10800>bfont(44)="Galleria"
<:#216,10800>bfont(45)="Gatineau"
<:#216,10800>bfont(46)="GreekMathSymbols"
<:#216,10800>bfont(47)="Hollow"
<:#216,10800>bfont(48)="HomewardBound"
<:#216,10800>bfont(49)="Indiana"
<:#216,10800>bfont(50)="IndianaSolid"
<:#216,10800>bfont(51)="Kastler"
<:#216,10800>bfont(52)="Kids"
<:#216,10800>bfont(53)="Lincoln"
<:#216,10800>bfont(54)="Linus"
<:#216,10800>bfont(55)="Lithograph"
<:#216,10800>bfont(56)="LithographLight"
<:#216,10800>bfont(57)="Mystical"
<:#216,10800>bfont(58)="Nebraska"
<:#216,10800>bfont(59)="NewBrunswick"
<:#216,10800>bfont(60)="NewOrder"
<:#216,10800>bfont(61)="NewOrderEngraved"
<:#216,10800>bfont(62)="Nuance"
<:#216,10800>bfont(63)="Ottawa"
<:#216,10800>bfont(64)="PalmSprings"
<:#216,10800>bfont(65)="Paradise"
<:#216,10800>bfont(66)="Penguin"
<:#216,10800>bfont(67)="PenguinLight"
<:#216,10800>bfont(68)="President"
<:#216,10800>bfont(69)="Southern"
<:#216,10800>bfont(70)="Stamp"
<:#216,10800>bfont(71)="SwitzerlandLight"
<:#216,10800>bfont(72)="SwitzerlandNarrow"
<:#216,10800>bfont(73)="Timpani"
<:#216,10800>bfont(74)="TimpaniHeavy"
<:#216,10800>bfont(75)="Unicorn"
<:#216,10800>bfont(76)="Viking"
<:#216,10800>bfont(77)="Vivienne"
<:#216,10800>bfont(78)="Wingdings"
<:#216,10800>bfont(79)="ZurichCalligraphic"
<:#216,10800>bfont(80)="Roman 10cpi"
<:#216,10800>bfont(81)="Roman 10cpi 0"
<:#216,10800>bfont(82)="Roman 10cpi OS"
<:#216,10800>bfont(83)="Roman 10cpi R"
<:#216,10800>bfont(84)="Roman 10cpi S"
@Function@<:#216,10800>Box1:
<:#216,10800>For I = 1 to b
<:#216,10800> FillList(bfont(I))
<:#216,10800>Next
<:#216,10800>box1=DialogBox(".","box1")
<:#216,10800>If box1=0
<:#216,10800> Goto endit
<:#216,10800>Endif
<:#216,10800>Newfont=GetDialogField$(9000)
<:#216,10800>size=GetDialogField$(20)
<:#216,10800>If size=1
<:#216,10800> For I = 3 to 50
<:#216,10800> x=i*2
<:#216,10800> Filledit(9500,x)
<:#216,10800> next
<:#216,10800> Box2=DialogBox(".","box2")
<:#216,10800> Newsize=GetDialogField$(9500)
<:#216,10800> '<:><:><:><:>Newsize=Newsize*20
<:#216,10800>Endif
<:#216,10800>MarkBookMark("current" 4003 )
<:#216,10800>Type( "<[>CTRLHome]<[>CTRLSHIFTEnd]" )
<:#216,10800>FontFaceChange(newfont)
<:#216,10800>If Box2=1
<:#216,10800> FontPointSizeChange(newsize)
<:#216,10800>Endif
<:#216,10800>Type( "<[>Right]" )
<:#216,10800>MarkBookMark("current" 4002 )
<:#216,10800>MarkBookMark("current" 4004 )
<:#216,10800>Darkmode(0)
@Function@<:#216,10800>Defstyle:
<:#216,10800>UserControl("Click On Resume To Redefine Styles in Style Sheet.")
<:#216,10800>Darkmode(1)
<:#216,10800>MarkBookMark("current" 4003 )
<:#216,10800>type("<[>ctrlhome]<[>ctrlshiftdown]")
<:#216,10800>If curshade$()=""
<:#216,10800> goto endit
<:#216,10800>Endif
@Function@<:#216,10800>loop2:
<:#216,10800>name=GetStyleName$()
<:#216,10800><:><:>Messages(0)<:><:><:><:>
<:#216,10800><:><:>DefineStyle()
<:#216,10800>Messages(1)<:><:><:><:><:><:>
<:#216,10800>style(s)=name
<:#216,10800>s=s+1
@Function@<:#216,10800>Loop1:
<:#216,10800>Type("<[>right]<[>ctrlshiftdown]")
<:#216,10800>If curshade$()=""
<:#216,10800> goto perm
<:#216,10800>Endif
<:#216,10800>name=GetStyleName$()
<:#216,10800>For i = 1 to s
<:#216,10800> If name = Style(i)
<:#216,10800> Goto loop1
<:#216,10800> Endif
<:#216,10800>next
<:#216,10800>Goto loop2
@Function@<:#216,10800>Perm:
<:#216,10800>Type( "<[>Right]" )
<:#216,10800>MarkBookMark("current" 4002 )
<:#216,10800>MarkBookMark("current" 4004 )
<:#216,10800>ModifyReflow()
<:#216,10800>Darkmode(0)
<:#216,10800>hourglass(0)
<:#216,10800>UserControl("Click On Resume To Make Changes Permanent In Style Sheet.")
<:#216,10800>StyleManageInit()
<:#216,10800>For i = 1 to s - 1
<:#216,10800> StyleManageAction(style(i),2,0)
<:#216,10800>next
<:#216,10800>StyleManageFinish()
@Function@<:#216,10800>endit:
<:#216,10800>ModifyReflow()
<:#216,10800><:><:><:><:>Darkmode(0)
<:#216,10800>hourglass(0)
@Function@<:#216,10800>END FUNCTION
<:#216,10800>
@Function@<:#216,10800>DIALOG box1
<:#216,10800>-2134376448 5 110 40 160 108 "" "" "Select New Typeface"
<:#216,10800>FONT 8 "Helv"
<:#216,10800>112 6 40<:><:> 14 1 1342242817 "button" "OK" 0
<:#216,10800>112 22 40 14 2 1342242816 "button" "Cancel" 0
<:#216,10800>8 16 92 68 9000 1352859657 "listbox" "" 0
<:#216,10800>10 6 96 8 1000 1342177280 "static" "Available Printer Fonts:" 0
<:#216,10800>8 90 150 9 20 1342242819 "button" "Change Font Point Size For Document" 0
@Function@<:#216,10800>END DIALOG
<:#216,10800>
@Function@<:#216,10800>DIALOG Box2
<:#216,10800>-2134376448 4 150 40 108 76 "" "" "Select New Point Size"
<:#216,10800>FONT 8 "Helv"
<:#216,10800>60 5 40 14 1 1342242817 "button" "OK" 0
<:#216,10800>60 21 40 14 2 1342242816 "button" "Cancel" 0
<:#216,10800>8 4 44 8 1000 1342177280 "static" "Point Size:" 0
<:#216,10800>8 16 44 54 9500 1344274433 "combobox" "" 0
@Function@<:#216,10800>END DIALOG
>
[Embedded]
00007944
>
[macsum] 3
cngdocft 0 0 13 0
box1 3886 0 -1 168
Box2 4251 0 -1 178
[macse]
14 cngdocft
0 292 1
0 296 1
20 00003847
19 00003847
5 100
21 1 [X]
5 25
21 2 [X]
5 1
8 3
5 84
8 4
5 1
7 "Arial MT"
23 1
5 2
7 "AvantGarde"
23 1
5 3
7 "Bookman"
23 1
5 4
7 "BrushScript"
23 1
5 5
7 "CaslonOpenFace"
23 1
5 6
7 "Courier"
23 1
5 7
7 "DomCasual"
23 1
5 8
7 "Frank Goth Cd"
23 1
5 9
7 "Helvetica"
23 1
5 10
7 "Helvetica-Narrow"
23 1
5 11
7 "LetterGothic"
23 1
5 12
7 "NewCenturySchlbk"
23 1
5 13
7 "Palatino"
23 1
5 14
7 "Perpetua"
23 1
5 15
7 "Shelly Allegro Script"
23 1
5 16
7 "Symbol"
23 1
5 17
7 "Times"
23 1
5 18
7 "TimesNewRomanPS"
23 1
5 19
7 "Wingdings"
23 1
5 20
7 "Algiers"
23 1
5 21
7 "Arabia"
23 1
5 22
7 "Avalon"
23 1
5 23
7 "Bahamas"
23 1
5 24
7 "BahamasHeavy"
23 1
5 25
7 "BahamasLight"
23 1
5 26
7 "BallroomTango"
23 1
5 27
7 "BravoEngraved"
23 1
5 28
7 "Brochure"
23 1
5 29
7 "Brooklyn"
23 1
5 30
7 "Busker"
23 1
5 31
7 "Campaign"
23 1
5 32
7 "Casablanca"
23 1
5 33
7 "CasablancaAntique"
23 1
5 34
7 "CommonBullets"
23 1
5 35
7 "Cottage"
23 1
5 36
7 "Crescent"
23 1
5 37
7 "Dauphin"
23 1
5 38
7 "DawnCastle"
23 1
5 39
7 "Dixieland"
23 1
5 40
7 "Euromode"
23 1
5 41
7 "Expo"
23 1
5 42
7 "Frankenstein"
23 1
5 43
7 "Freeport"
23 1
5 44
7 "Galleria"
23 1
5 45
7 "Gatineau"
23 1
5 46
7 "GreekMathSymbols"
23 1
5 47
7 "Hollow"
23 1
5 48
7 "HomewardBound"
23 1
5 49
7 "Indiana"
23 1
5 50
7 "IndianaSolid"
23 1
5 51
7 "Kastler"
23 1
5 52
7 "Kids"
23 1
5 53
7 "Lincoln"
23 1
5 54
7 "Linus"
23 1
5 55
7 "Lithograph"
23 1
5 56
7 "LithographLight"
23 1
5 57
7 "Mystical"
23 1
5 58
7 "Nebraska"
23 1
5 59
7 "NewBrunswick"
23 1
5 60
7 "NewOrder"
23 1
5 61
7 "NewOrderEngraved"
23 1
5 62
7 "Nuance"
23 1
5 63
7 "Ottawa"
23 1
5 64
7 "PalmSprings"
23 1
5 65
7 "Paradise"
23 1
5 66
7 "Penguin"
23 1
5 67
7 "PenguinLight"
23 1
5 68
7 "President"
23 1
5 69
7 "Southern"
23 1
5 70
7 "Stamp"
23 1
5 71
7 "SwitzerlandLight"
23 1
5 72
7 "SwitzerlandNarrow"
23 1
5 73
7 "Timpani"
23 1
5 74
7 "TimpaniHeavy"
23 1
5 75
7 "Unicorn"
23 1
5 76
7 "Viking"
23 1
5 77
7 "Vivienne"
23 1
5 78
7 "Wingdings"
23 1
5 79
7 "ZurichCalligraphic"
23 1
5 80
7 "Roman 10cpi"
23 1
5 81
7 "Roman 10cpi 0"
23 1
5 82
7 "Roman 10cpi OS"
23 1
5 83
7 "Roman 10cpi R"
23 1
5 84
7 "Roman 10cpi S"
23 1
5 1
8 5
6 4
6 5
18 2
12 00002528
10 00002562
5 1
6 5
3 0
8 5
10 00002453
6 5
22 1
0 25 [X]
10 00002495
0 26 "." "box1"
13
8 6
6 6
5 0
18 0
11 00002630
10 00003847
0 27 9000
13
8 7
0 27 20
13
8 8
6 8
5 1
18 0
11 00002881
5 3
8 5
5 50
6 5
18 2
12 00002783
10 00002833
5 1
6 5
3 0
8 5
10 00002707
6 5
5 2
4 0
8 9
0 31 9500 "{9}"
10 00002750
0 26 "." "box2"
13
8 10
0 27 9500
13
8 11
2 466 1 "current" 4003
0 6 "[16420][20515]"
2 278 1 "{7}"
6 10
5 1
18 0
11 00002988
2 279 1 "{11}"
0 6 "[39]"
2 466 1 "current" 4002
2 466 1 "current" 4004
0 292 0
0 7 "Click On Resume To Redefine Styles in Style Sheet."
0 292 1
2 466 1 "current" 4003
0 6 "[16420][20520]"
0 24
13
7 ""
18 0
11 00003218
10 00003847
0 288
13
8 12
0 30 0
2 324 1
0 30 1
6 3
6 12
23 2
6 3
5 1
3 0
8 3
0 6 "[39][20520]"
0 24
13
7 ""
18 0
11 00003364
10 00003541
0 288
13
8 12
5 1
8 5
6 3
6 5
18 2
12 00003466
10 00003528
5 1
6 5
3 0
8 5
10 00003391
6 12
6 5
22 2
18 0
11 00003515
10 00003297
10 00003433
10 00003218
0 6 "[39]"
2 466 1 "current" 4002
2 466 1 "current" 4004
2 319 1
0 292 0
0 296 0
0 7 "Click On Resume To Make Changes Permanent In Style Sheet."
2 321 1
5 1
8 5
6 3
5 1
3 1
6 5
18 2
12 00003797
10 00003838
5 1
6 5
3 0
8 5
10 00003712
6 5
22 2
2 322 1 [X] 2 0
10 00003764
2 326 1
2 319 1
0 292 0
0 296 0
6 0
15
9
DIALOG box1
-2134376448 5 110 40 160 108 "" "" "Select New Typeface"
FONT 8 "Helv"
112 6 40 14 1 1342242817 "button" "OK" 0
112 22 40 14 2 1342242816 "button" "Cancel" 0
8 16 92 68 9000 1352859657 "listbox" "" 0
10 6 96 8 1000 1342177280 "static" "Available Printer Fonts:" 0
8 90 150 9 20 1342242819 "button" "Change Font Point Size For Document" 0
DIALOG Box2
-2134376448 4 150 40 108 76 "" "" "Select New Point Size"
FONT 8 "Helv"
60 5 40 14 1 1342242817 "button" "OK" 0
60 21 40 14 2 1342242816 "button" "Cancel" 0
8 4 44 8 1000 1342177280 "static" "Point Size:" 0
8 16 44 54 9500 1344274433 "combobox" "" 0
00007969